Public Class frmAbout
  Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

  Public Sub New()
    MyBase.New()

    'This call is required by the Windows Form Designer.
    InitializeComponent()

    'Add any initialization after the InitializeComponent() call

  End Sub

  'Form overrides dispose to clean up the component list.
  Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
    If disposing Then
      If Not (components Is Nothing) Then
        components.Dispose()
      End If
    End If
    MyBase.Dispose(disposing)
  End Sub

  'Required by the Windows Form Designer
  Private components As System.ComponentModel.IContainer

  'NOTE: The following procedure is required by the Windows Form Designer
  'It can be modified using the Windows Form Designer.  
  'Do not modify it using the code editor.
  Friend WithEvents siteLink As System.Windows.Forms.LinkLabel
    Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents llnkChessManiaHomePage As System.Windows.Forms.LinkLabel
    Friend WithEvents version As System.Windows.Forms.Label
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmAbout))
        Me.siteLink = New System.Windows.Forms.LinkLabel
        Me.LinkLabel1 = New System.Windows.Forms.LinkLabel
        Me.Label1 = New System.Windows.Forms.Label
        Me.version = New System.Windows.Forms.Label
        Me.llnkChessManiaHomePage = New System.Windows.Forms.LinkLabel
        Me.SuspendLayout()
        '
        'siteLink
        '
        Me.siteLink.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.siteLink.AutoSize = True
        Me.siteLink.BackColor = System.Drawing.Color.Black
        Me.siteLink.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.siteLink.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline
        Me.siteLink.Location = New System.Drawing.Point(131, 8)
        Me.siteLink.Name = "siteLink"
        Me.siteLink.Size = New System.Drawing.Size(240, 19)
        Me.siteLink.TabIndex = 0
        Me.siteLink.TabStop = True
        Me.siteLink.Text = "http://www.vikasumit.com"
        Me.siteLink.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.siteLink.VisitedLinkColor = System.Drawing.Color.Blue
        '
        'LinkLabel1
        '
        Me.LinkLabel1.AutoSize = True
        Me.LinkLabel1.BackColor = System.Drawing.Color.Transparent
        Me.LinkLabel1.LinkColor = System.Drawing.Color.Red
        Me.LinkLabel1.Location = New System.Drawing.Point(440, 248)
        Me.LinkLabel1.Name = "LinkLabel1"
        Me.LinkLabel1.Size = New System.Drawing.Size(33, 13)
        Me.LinkLabel1.TabIndex = 2
        Me.LinkLabel1.TabStop = True
        Me.LinkLabel1.Text = "Close"
        '
        'Label1
        '
        Me.Label1.AutoSize = True
        Me.Label1.BackColor = System.Drawing.Color.Transparent
        Me.Label1.Font = New System.Drawing.Font("Times New Roman", 27.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.Color.Lime
        Me.Label1.Location = New System.Drawing.Point(101, 172)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(299, 42)
        Me.Label1.TabIndex = 3
        Me.Label1.Text = " VS Chess Mania "
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'version
        '
        Me.version.AutoSize = True
        Me.version.BackColor = System.Drawing.Color.Transparent
        Me.version.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.version.ForeColor = System.Drawing.Color.Yellow
        Me.version.Location = New System.Drawing.Point(230, 212)
        Me.version.Name = "version"
        Me.version.Size = New System.Drawing.Size(54, 16)
        Me.version.TabIndex = 4
        Me.version.Text = "V 1.0.1"
        '
        'llnkChessManiaHomePage
        '
        Me.llnkChessManiaHomePage.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.llnkChessManiaHomePage.AutoSize = True
        Me.llnkChessManiaHomePage.BackColor = System.Drawing.Color.Black
        Me.llnkChessManiaHomePage.Font = New System.Drawing.Font("Bookman Old Style", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.llnkChessManiaHomePage.LinkBehavior = System.Windows.Forms.LinkBehavior.HoverUnderline
        Me.llnkChessManiaHomePage.Location = New System.Drawing.Point(90, 228)
        Me.llnkChessManiaHomePage.Name = "llnkChessManiaHomePage"
        Me.llnkChessManiaHomePage.Size = New System.Drawing.Size(310, 19)
        Me.llnkChessManiaHomePage.TabIndex = 5
        Me.llnkChessManiaHomePage.TabStop = True
        Me.llnkChessManiaHomePage.Text = "http://vschessmania.codeplex.com/"
        Me.llnkChessManiaHomePage.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.llnkChessManiaHomePage.VisitedLinkColor = System.Drawing.Color.Blue
        '
        'frmAbout
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(502, 267)
        Me.ControlBox = False
        Me.Controls.Add(Me.llnkChessManiaHomePage)
        Me.Controls.Add(Me.version)
        Me.Controls.Add(Me.Label1)
        Me.Controls.Add(Me.LinkLabel1)
        Me.Controls.Add(Me.siteLink)
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
        Me.KeyPreview = True
        Me.MaximizeBox = False
        Me.Name = "frmAbout"
        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub

#End Region

    Private Sub siteLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles siteLink.LinkClicked
        Try
            Process.Start(e.Link.LinkData)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        siteLink.Text = "Vikasumit's Web site"
        siteLink.Links.Add(0, siteLink.Text.Length, "http://www.vikasumit.com")
        siteLink.TextAlign = ContentAlignment.MiddleCenter
        siteLink.AutoSize = True
        siteLink.Left = CInt((Me.ClientSize.Width - siteLink.Width) / 2)


        llnkChessManiaHomePage.Text = "VS ChessMania HomePage"
        llnkChessManiaHomePage.Links.Add(0, siteLink.Text.Length, "http://vschessmania.codeplex.com/")
        llnkChessManiaHomePage.TextAlign = ContentAlignment.MiddleCenter
        llnkChessManiaHomePage.AutoSize = True
        llnkChessManiaHomePage.Left = CInt((Me.ClientSize.Width - siteLink.Width) / 2)


        version.Text = Application.ProductVersion
    End Sub

    Private Sub frmAbout_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode = Keys.Escape Then
            Me.Close()
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Me.Close()
    End Sub

    Private Sub llnkChessManiaHomePage_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles llnkChessManiaHomePage.LinkClicked
        Try
            Process.Start(e.Link.LinkData)
        Catch ex As Exception
        End Try
    End Sub
End Class